home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / timeserv.i < prev    next >
Text File  |  1997-10-26  |  2KB  |  106 lines
  1. IMPLEMENTATION MODULE TimeService;
  2.  
  3. (*$R-,S-*)
  4.  
  5. FROM SYSTEM IMPORT ASSEMBLER;
  6.  
  7. PROCEDURE TimeToCard(Stunde,Minute,Sekunde : CARDINAL):CARDINAL;
  8. BEGIN
  9.   RETURN 0
  10. END TimeToCard;
  11.  
  12. PROCEDURE CardToTime(Time : CARDINAL;VAR Stunde,Minute,Sekunde : CARDINAL);
  13. BEGIN
  14.   ASSEMBLER
  15.     MOVE.L    Sekunde(A3),A0    ;ADR(Sekunde)
  16.     MOVE.L    Minute(A3),A1     ;ADR(Minute)
  17.     MOVE.L    Stunde(A3),A2     ;ADR(Stunde)
  18.  
  19.     MOVEQ.L   #0,D0
  20.     MOVE.W    Time(A3),D0       ;Time
  21.                                 
  22.     ROL.L     #3,D0
  23.     ROR.B     #3,D0
  24.     CLR.W     D1
  25.     MOVE.B    D0,D1
  26.     ADD.W     D1,D1
  27.     MOVE.W    D1,(A0)           ;Sekunde
  28.     CLR.B     D0
  29.     ROR.L     #6,D0
  30.     ROR.B     #2,D0
  31.     CLR.W     D1
  32.     MOVE.B    D0,D1
  33.     MOVE.W    D1,(A1)           ;Minute
  34.     CLR.B     D0
  35.     ROR.W     #8,D0
  36.     MOVE.W    D0,(A2)           ;Stunde
  37.   END;
  38. END CardToTime;
  39.  
  40. PROCEDURE DateToCard(Jahr,Monat,Tag : CARDINAL):CARDINAL;
  41. BEGIN
  42.   RETURN 0
  43. END DateToCard;
  44.  
  45. PROCEDURE CardToDate(Date : CARDINAL;VAR Jahr,Monat,Tag : CARDINAL);
  46. BEGIN
  47.   ASSEMBLER
  48.     MOVE.L    Tag(A3),A0        ;ADR(Tag)
  49.     MOVE.L    Monat(A3),A1      ;ADR(Monat)
  50.     MOVE.L    Jahr(A3),A2       ;ADR(Jahr)
  51.     MOVEQ.L   #0,D0             ;d0 l”schen
  52.     MOVE.W    Date(A3),D0       ;Date holen
  53.  
  54.     ROL.L     #3,D0
  55.     ROR.B     #3,D0
  56.     CLR.W     D1
  57.     MOVE.B    D0,D1
  58.     MOVE.W    D1,(A0)           ;Tag
  59.     CLR.B     D0
  60.     ROR.L     #4,D0
  61.     ROR.B     #4,D0
  62.     CLR.W     D1
  63.     MOVE.B    D0,D1
  64.     MOVE.W    D1,(A1)           ;Monat
  65.     ROR.W     #8,D0
  66.     CLR.W     D1
  67.     MOVE.B    D0,D1
  68.     ADDI.W    #1980,D1
  69.     MOVE.W    D1,(A2)           ;Jahr
  70.   END;
  71. END CardToDate;
  72.  
  73. PROCEDURE DateTimeToLong(Jahr,Monat,Tag,
  74.                          Stunde,Minute,Sekunde : CARDINAL):LONGCARD;
  75. BEGIN
  76.   RETURN 0
  77. END DateTimeToLong;
  78.  
  79. PROCEDURE LongToDateTime(DateTime : LONGCARD;
  80.                          VAR Jahr,Monat,Tag,
  81.                              Stunde, Minute,Sekunde : CARDINAL);
  82. BEGIN
  83. END LongToDateTime;
  84.  
  85. PROCEDURE SetTime(Time : CARDINAL);  (* GEMDOS *)
  86. BEGIN
  87. END SetTime;
  88.  
  89. PROCEDURE SetDate(Date : CARDINAL);  (* GEMDOS *)
  90. BEGIN
  91. END SetDate;
  92.  
  93. PROCEDURE SetDateTime(DateTime : LONGCARD); (* KEYBOARD *)
  94. BEGIN
  95. END SetDateTime;
  96.  
  97. PROCEDURE QuickAndDirty();
  98. BEGIN
  99. END QuickAndDirty;
  100.  
  101. PROCEDURE QuickAndDirtyToo();
  102. BEGIN
  103. END QuickAndDirtyToo;
  104.  
  105. END TimeService.
  106.